/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilisp-mov.elc.z / ilisp-mov.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 33 3a 34 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:41 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 69 6c 69 73 |s-20.3/l|isp/ilis|
|000000a0| 70 2f 69 6c 69 73 70 2d | 6d 6f 76 2e 65 6c 0a 3b |p/ilisp-|mov.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs  |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 69 6c 69 73 |   (erro|r "`ilis|
|000001f0| 70 2d 6d 6f 76 2e 65 6c | 27 20 77 61 73 20 63 6f |p-mov.el|' was co|
|00000200| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|00000210| 20 32 30 22 29 29 0a 0a | 28 6f 72 20 28 62 6f 75 | 20"))..|(or (bou|
|00000220| 6e 64 70 20 27 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ndp 'cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 29 20 | 28 73 65 74 71 20 63 75 |d-list) |(setq cu|
|00000240| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000250| 6e 69 6c 29 29 0a 0a 0a | 23 40 33 31 39 20 47 6f |nil))...|#@319 Go|
|00000260| 65 73 20 74 6f 20 74 68 | 65 20 62 65 67 69 6e 6e |es to th|e beginn|
|00000270| 69 6e 67 20 6f 66 20 6c | 69 6e 65 2c 20 74 68 65 |ing of l|ine, the|
|00000280| 6e 20 73 6b 69 70 73 20 | 70 61 73 74 20 74 68 65 |n skips |past the|
|00000290| 20 70 72 6f 6d 70 74 2c | 20 69 66 20 61 6e 79 2e | prompt,| if any.|
|000002a0| 0a 49 66 20 61 20 70 72 | 65 66 69 78 20 61 72 67 |.If a pr|efix arg|
|000002b0| 75 6d 65 6e 74 20 69 73 | 20 67 69 76 65 6e 20 28 |ument is| given (|
|000002c0| 5c 5b 75 6e 69 76 65 72 | 73 61 6c 2d 61 72 67 75 |\[univer|sal-argu|
|000002d0| 6d 65 6e 74 5d 29 2c 20 | 74 68 65 6e 20 6e 6f 20 |ment]), |then no |
|000002e0| 70 72 6f 6d 70 74 20 73 | 6b 69 70 20 0a 2d 2d 20 |prompt s|kip .-- |
|000002f0| 67 6f 20 73 74 72 61 69 | 67 68 74 20 74 6f 20 63 |go strai|ght to c|
|00000300| 6f 6c 75 6d 6e 20 30 2e | 0a 0a 54 68 65 20 70 72 |olumn 0.|..The pr|
|00000310| 6f 6d 70 74 20 73 6b 69 | 70 20 69 73 20 64 6f 6e |ompt ski|p is don|
|00000320| 65 20 62 79 20 73 6b 69 | 70 70 69 6e 67 20 74 65 |e by ski|pping te|
|00000330| 78 74 20 6d 61 74 63 68 | 69 6e 67 20 74 68 65 20 |xt match|ing the |
|00000340| 72 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |regular |expressi|
|00000350| 6f 6e 0a 63 6f 6d 69 6e | 74 2d 70 72 6f 6d 70 74 |on.comin|t-prompt|
|00000360| 2d 72 65 67 65 78 70 20 | 6f 72 20 69 6c 69 73 70 |-regexp |or ilisp|
|00000370| 2d 6f 74 68 65 72 2d 70 | 72 6f 6d 70 74 2c 20 62 |-other-p|rompt, b|
|00000380| 6f 74 68 20 62 75 66 66 | 65 72 20 6c 6f 63 61 6c |oth buff|er local|
|00000390| 20 76 61 72 69 61 62 6c | 65 73 2e 1f 0a 28 64 65 | variabl|es...(de|
|000003a0| 66 61 6c 69 61 73 20 27 | 62 6f 6c 2d 69 6c 69 73 |falias '|bol-ilis|
|000003b0| 70 20 23 5b 28 61 72 67 | 29 20 22 c0 79 88 09 3f |p #[(arg|) ".y..?|
|000003c0| ad 8c c2 20 ae 88 0b ad | 85 0b 1c c2 20 29 87 22 |... ....|.... )."|
|000003d0| 20 5b 30 20 61 72 67 20 | 63 6f 6d 69 6e 74 2d 73 | [0 arg |comint-s|
|000003e0| 6b 69 70 2d 70 72 6f 6d | 70 74 20 69 6c 69 73 70 |kip-prom|pt ilisp|
|000003f0| 2d 6f 74 68 65 72 2d 70 | 72 6f 6d 70 74 20 63 6f |-other-p|rompt co|
|00000400| 6d 69 6e 74 2d 70 72 6f | 6d 70 74 2d 72 65 67 65 |mint-pro|mpt-rege|
|00000410| 78 70 5d 20 31 20 28 23 | 24 20 2e 20 36 30 36 29 |xp] 1 (#|$ . 606)|
|00000420| 20 22 50 22 5d 29 0a 23 | 40 31 38 38 20 47 6f 20 | "P"]).#|@188 Go |
|00000430| 74 6f 20 74 68 65 20 6e | 65 78 74 20 6c 65 66 74 |to the n|ext left|
|00000440| 20 70 61 72 65 6e 20 74 | 68 61 74 20 73 74 61 72 | paren t|hat star|
|00000450| 74 73 20 61 74 20 74 68 | 65 20 6c 65 66 74 20 6d |ts at th|e left m|
|00000460| 61 72 67 69 6e 20 6f 72 | 20 61 66 74 65 72 20 61 |argin or| after a|
|00000470| 0a 70 72 6f 6d 70 74 20 | 69 6e 20 61 6e 20 49 4c |.prompt |in an IL|
|00000480| 49 53 50 20 62 75 66 66 | 65 72 2e 20 20 49 66 20 |ISP buff|er.  If |
|00000490| 6f 70 74 69 6f 6e 61 6c | 20 53 54 41 59 2c 20 74 |optional| STAY, t|
|000004a0| 68 65 6e 20 64 6f 20 6e | 6f 74 20 6d 6f 76 65 20 |hen do n|ot move |
|000004b0| 74 6f 0a 70 72 69 6f 72 | 20 64 65 66 75 6e 20 69 |to.prior| defun i|
|000004c0| 66 20 61 74 20 74 68 65 | 20 73 74 61 72 74 20 6f |f at the| start o|
|000004d0| 66 20 6f 6e 65 20 69 6e | 20 61 6e 20 69 6c 69 73 |f one in| an ilis|
|000004e0| 70 20 6d 6f 64 65 2e 1f | 0a 28 64 65 66 61 6c 69 |p mode..|.(defali|
|000004f0| 61 73 20 27 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |as 'begi|nning-of|
|00000500| 2d 64 65 66 75 6e 2d 6c | 69 73 70 20 23 5b 28 26 |-defun-l|isp #[(&|
|00000510| 6f 70 74 69 6f 6e 61 6c | 20 73 74 61 79 29 20 22 |optional| stay) "|
|00000520| 08 09 73 ab 93 60 1a 0b | 3f ad 8b 5c 6e c4 20 55 |..s..`..|?..\n. U|
|00000530| ad 85 c5 79 88 c4 20 29 | 87 c6 20 87 22 20 5b 6d |...y.. )|.. ." [m|
|00000540| 61 6a 6f 72 2d 6d 6f 64 | 65 20 69 6c 69 73 70 2d |ajor-mod|e ilisp-|
|00000550| 6d 6f 64 65 73 20 70 6f | 69 6e 74 20 73 74 61 79 |modes po|int stay|
|00000560| 20 6c 69 73 70 2d 69 6e | 70 75 74 2d 73 74 61 72 | lisp-in|put-star|
|00000570| 74 20 2d 31 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |t -1 beg|inning-o|
|00000580| 66 2d 64 65 66 75 6e 5d | 20 32 20 28 23 24 20 2e |f-defun]| 2 (#$ .|
|00000590| 20 31 30 36 39 29 20 6e | 69 6c 5d 29 0a 23 40 31 | 1069) n|il]).#@1|
|000005a0| 33 32 20 47 6f 20 74 6f | 20 74 68 65 20 6e 65 78 |32 Go to| the nex|
|000005b0| 74 20 6c 65 66 74 20 70 | 61 72 65 6e 20 74 68 61 |t left p|aren tha|
|000005c0| 74 20 73 74 61 72 74 73 | 20 61 74 20 74 68 65 20 |t starts| at the |
|000005d0| 6c 65 66 74 20 6d 61 72 | 67 69 6e 20 6f 72 20 61 |left mar|gin or a|
|000005e0| 66 74 65 72 20 61 0a 70 | 72 6f 6d 70 74 20 69 6e |fter a.p|rompt in|
|000005f0| 20 61 6e 20 49 4c 49 53 | 50 20 62 75 66 66 65 72 | an ILIS|P buffer|
|00000600| 20 61 6e 64 20 67 6f 20 | 74 6f 20 74 68 65 20 65 | and go |to the e|
|00000610| 6e 64 20 6f 66 20 74 68 | 65 20 65 78 70 72 65 73 |nd of th|e expres|
|00000620| 73 69 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |sion...(|defalias|
|00000630| 20 27 65 6e 64 2d 6f 66 | 2d 64 65 66 75 6e 2d 6c | 'end-of|-defun-l|
|00000640| 69 73 70 20 23 5b 6e 69 | 6c 20 22 60 18 09 5c 6e |isp #[ni|l "`..\n|
|00000650| 73 ab 86 c3 c4 21 88 aa | 97 c5 20 ac 8f c6 79 88 |s....!..|.. ...y.|
|00000660| c7 c8 c9 c4 23 88 ca 20 | 88 6e ac 84 c3 c4 21 88 |....#.. |.n....!.|
|00000670| cb c4 21 88 08 60 55 ad | 9f 09 5c 6e 73 ab 89 c7 |..!..`U.|..\ns...|
|00000680| 0e 0c 64 c4 23 88 aa 84 | cd 64 21 88 6d ae 84 60 |..d.#...|.d!.m..`|
|00000690| 66 ce 55 3f ad 83 cb c4 | 21 29 87 22 20 5b 70 6f |f.U?....|!)." [po|
|000006a0| 69 6e 74 20 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 69 |int majo|r-mode i|
|000006b0| 6c 69 73 70 2d 6d 6f 64 | 65 73 20 62 65 67 69 6e |lisp-mod|es begin|
|000006c0| 6e 69 6e 67 2d 6f 66 2d | 64 65 66 75 6e 2d 6c 69 |ning-of-|defun-li|
|000006d0| 73 70 20 74 20 6c 69 73 | 70 2d 69 6e 2d 73 74 72 |sp t lis|p-in-str|
|000006e0| 69 6e 67 20 30 20 72 65 | 2d 73 65 61 72 63 68 2d |ing 0 re|-search-|
|000006f0| 66 6f 72 77 61 72 64 20 | 22 5e 5b 20 09 5c 6e 5d |forward |"^[ .\n]|
|00000700| 2a 5b 5e 3b 20 09 5c 6e | 5d 22 20 6e 69 6c 20 62 |*[^; .\n|]" nil b|
|00000710| 61 63 6b 2d 74 6f 2d 69 | 6e 64 65 6e 74 61 74 69 |ack-to-i|ndentati|
|00000720| 6f 6e 20 6c 69 73 70 2d | 65 6e 64 2d 64 65 66 75 |on lisp-|end-defu|
|00000730| 6e 2d 74 65 78 74 20 63 | 6f 6d 69 6e 74 2d 70 72 |n-text c|omint-pr|
|00000740| 6f 6d 70 74 2d 72 65 67 | 65 78 70 20 6c 69 73 70 |ompt-reg|exp lisp|
|00000750| 2d 73 6b 69 70 20 3f 5c | 6e 5d 20 34 20 28 23 24 |-skip ?\|n] 4 (#$|
|00000760| 20 2e 20 31 34 34 33 29 | 20 6e 69 6c 5d 29 0a 23 | . 1443)| nil]).#|
|00000770| 40 35 39 20 47 6f 20 74 | 6f 20 74 68 65 20 73 74 |@59 Go t|o the st|
|00000780| 61 72 74 20 6f 66 20 74 | 68 65 20 63 6f 6e 74 61 |art of t|he conta|
|00000790| 69 6e 69 6e 67 20 64 65 | 66 75 6e 20 61 6e 64 20 |ining de|fun and |
|000007a0| 72 65 74 75 72 6e 20 70 | 6f 69 6e 74 2e 1f 0a 28 |return p|oint...(|
|000007b0| 64 65 66 61 6c 69 61 73 | 20 27 6c 69 73 70 2d 64 |defalias| 'lisp-d|
|000007c0| 65 66 75 6e 2d 62 65 67 | 69 6e 20 23 5b 6e 69 6c |efun-beg|in #[nil|
|000007d0| 20 22 c0 19 5c 6e 0b 73 | ab 84 c4 20 aa 90 6d ac | "..\n.s|... ..m.|
|000007e0| 89 6e ab 86 60 66 c5 55 | ac 83 c6 20 88 60 29 87 |.n..`f.U|... .`).|
|000007f0| 22 20 5b 6e 69 6c 20 62 | 65 67 69 6e 20 6d 61 6a |" [nil b|egin maj|
|00000800| 6f 72 2d 6d 6f 64 65 20 | 69 6c 69 73 70 2d 6d 6f |or-mode |ilisp-mo|
|00000810| 64 65 73 20 6c 69 73 70 | 2d 69 6e 70 75 74 2d 73 |des lisp|-input-s|
|00000820| 74 61 72 74 20 3f 5c 28 | 20 62 65 67 69 6e 6e 69 |tart ?\(| beginni|
|00000830| 6e 67 2d 6f 66 2d 64 65 | 66 75 6e 5d 20 32 20 28 |ng-of-de|fun] 2 (|
|00000840| 23 24 20 2e 20 31 39 30 | 38 29 5d 29 0a 23 40 38 |#$ . 190|8)]).#@8|
|00000850| 33 20 47 6f 20 74 6f 20 | 74 68 65 20 65 6e 64 20 |3 Go to |the end |
|00000860| 6f 66 20 74 68 65 20 63 | 6f 6e 74 61 69 6e 69 6e |of the c|ontainin|
|00000870| 67 20 64 65 66 75 6e 20 | 61 6e 64 20 72 65 74 75 |g defun |and retu|
|00000880| 72 6e 20 70 6f 69 6e 74 | 20 6f 72 20 6e 69 6c 20 |rn point| or nil |
|00000890| 69 66 0a 74 68 65 72 65 | 20 69 73 20 6e 6f 20 65 |if.there| is no e|
|000008a0| 6e 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd...(de|falias '|
|000008b0| 6c 69 73 70 2d 64 65 66 | 75 6e 2d 65 6e 64 20 23 |lisp-def|un-end #|
|000008c0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6f 2d 65 |[(&optio|nal no-e|
|000008d0| 72 72 6f 72 70 20 61 74 | 2d 62 65 67 69 6e 70 29 |rrorp at|-beginp)|
|000008e0| 20 22 08 ac 83 c1 20 88 | c2 c3 c4 8f 87 22 20 5b | ".... .|....." [|
|000008f0| 61 74 2d 62 65 67 69 6e | 70 20 6c 69 73 70 2d 64 |at-begin|p lisp-d|
|00000900| 65 66 75 6e 2d 62 65 67 | 69 6e 20 6e 69 6c 20 28 |efun-beg|in nil (|
|00000910| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 64 21 88 c1 |byte-cod|e ".d!..|
|00000920| 20 88 60 87 22 20 5b 6c | 69 73 70 2d 73 6b 69 70 | .`." [l|isp-skip|
|00000930| 20 66 6f 72 77 61 72 64 | 2d 73 65 78 70 5d 20 32 | forward|-sexp] 2|
|00000940| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|00000950| 63 6f 64 65 20 22 08 3f | ad 83 c1 c2 21 87 22 20 |code ".?|....!." |
|00000960| 5b 6e 6f 2d 65 72 72 6f | 72 70 20 65 72 72 6f 72 |[no-erro|rp error|
|00000970| 20 22 55 6e 62 61 6c 61 | 6e 63 65 64 20 70 61 72 | "Unbala|nced par|
|00000980| 65 6e 74 68 65 73 65 73 | 22 5d 20 32 29 29 29 5d |entheses|"] 2)))]|
|00000990| 20 33 20 28 23 24 20 2e | 20 32 31 33 30 29 5d 29 | 3 (#$ .| 2130)])|
|000009a0| 0a 23 40 31 33 34 20 46 | 69 6e 64 20 74 68 65 20 |.#@134 F|ind the |
|000009b0| 73 74 61 72 74 20 6f 66 | 20 74 68 65 20 6e 65 78 |start of| the nex|
|000009c0| 74 20 6c 69 6e 65 20 61 | 74 20 74 68 65 20 6c 65 |t line a|t the le|
|000009d0| 66 74 20 6d 61 72 67 69 | 6e 20 74 68 61 74 20 73 |ft margi|n that s|
|000009e0| 74 61 72 74 73 20 77 69 | 74 68 0a 61 20 63 68 61 |tarts wi|th.a cha|
|000009f0| 72 61 63 74 65 72 20 62 | 65 73 69 64 65 73 20 77 |racter b|esides w|
|00000a00| 68 69 74 65 73 70 61 63 | 65 2c 20 61 20 29 20 6f |hitespac|e, a ) o|
|00000a10| 72 20 3b 3b 3b 20 61 6e | 64 20 72 65 74 75 72 6e |r ;;; an|d return|
|00000a20| 20 74 68 65 0a 70 6f 69 | 6e 74 2e 1f 0a 28 64 65 | the.poi|nt...(de|
|00000a30| 66 61 6c 69 61 73 20 27 | 6c 69 73 70 2d 66 69 6e |falias '|lisp-fin|
|00000a40| 64 2d 6e 65 78 74 2d 73 | 74 61 72 74 20 23 5b 6e |d-next-s|tart #[n|
|00000a50| 69 6c 20 22 6d ab 82 64 | 87 8a c0 75 88 c1 c2 c0 |il "m..d|...u....|
|00000a60| c3 23 ab 84 c4 94 aa 81 | 64 29 87 22 20 5b 6e 69 |.#......|d)." [ni|
|00000a70| 6c 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |l re-sea|rch-forw|
|00000a80| 61 72 64 20 22 5e 5c 5c | 28 5c 5c 28 3b 3b 3b 5c |ard "^\\|(\\(;;;\|
|00000a90| 5c 29 5c 5c 7c 5c 5c 28 | 5b 5e 20 09 5c 6e 29 3b |\)\\|\\(|[^ .\n);|
|00000aa0| 5d 5c 5c 29 5c 5c 29 22 | 20 74 20 30 5d 20 34 20 |]\\)\\)"| t 0] 4 |
|00000ab0| 28 23 24 20 2e 20 32 34 | 37 31 29 5d 29 0a 23 40 |(#$ . 24|71)]).#@|
|00000ac0| 32 30 31 20 47 6f 20 74 | 68 65 20 65 6e 64 20 6f |201 Go t|he end o|
|00000ad0| 66 20 74 68 65 20 74 65 | 78 74 20 61 73 73 6f 63 |f the te|xt assoc|
|00000ae0| 69 61 74 65 64 20 77 69 | 74 68 20 74 68 65 20 63 |iated wi|th the c|
|00000af0| 75 72 72 65 6e 74 20 64 | 65 66 75 6e 20 61 6e 64 |urrent d|efun and|
|00000b00| 20 72 65 74 75 72 6e 0a | 70 6f 69 6e 74 2e 20 20 | return.|point.  |
|00000b10| 54 68 65 20 65 6e 64 20 | 69 73 20 74 68 65 20 6c |The end |is the l|
|00000b20| 61 73 74 20 63 68 61 72 | 61 63 74 65 72 20 62 65 |ast char|acter be|
|00000b30| 66 6f 72 65 20 77 68 69 | 74 65 73 70 61 63 65 20 |fore whi|tespace |
|00000b40| 6c 65 61 64 69 6e 67 20 | 74 6f 0a 61 20 6c 65 66 |leading |to.a lef|
|00000b50| 74 20 70 61 72 65 6e 20 | 6f 72 20 3b 3b 3b 20 61 |t paren |or ;;; a|
|00000b60| 74 20 74 68 65 20 6c 65 | 66 74 20 6d 61 72 67 69 |t the le|ft margi|
|00000b70| 6e 20 75 6e 6c 65 73 73 | 20 69 74 20 69 73 20 69 |n unless| it is i|
|00000b80| 6e 20 61 20 73 74 72 69 | 6e 67 2e 1f 0a 28 64 65 |n a stri|ng...(de|
|00000b90| 66 61 6c 69 61 73 20 27 | 6c 69 73 70 2d 65 6e 64 |falias '|lisp-end|
|00000ba0| 2d 64 65 66 75 6e 2d 74 | 65 78 74 20 23 5b 28 26 |-defun-t|ext #[(&|
|00000bb0| 6f 70 74 69 6f 6e 61 6c | 20 61 74 2d 73 74 61 72 |optional| at-star|
|00000bc0| 74 29 20 22 08 ac 83 c1 | 20 88 60 c2 20 8a c3 c4 |t) "....| .`. ...|
|00000bd0| c5 8f 29 1e 06 1e 07 1e | 08 c9 0e 07 77 88 60 0e |..).....|....w.`.|
|00000be0| 07 55 ac c1 8a ca cb c3 | cc 23 ab 84 cd 94 aa 81 |.U......|.#......|
|00000bf0| 64 29 1e 0e c3 cf d0 8f | ad a8 60 0e 07 59 ab a1 |d)......|..`..Y..|
|00000c00| 60 0e 0e 56 ab 87 0e 0e | 62 88 c3 aa 95 c2 20 89 |`..V....|b..... .|
|00000c10| 16 07 0e 06 56 ab 87 0e | 06 62 88 c3 aa 84 cc aa |....V...|.b......|
|00000c20| 81 cc 29 ac 34 d1 d2 0e | 08 cc 23 88 c3 7f 88 d3 |..).4...|..#.....|
|00000c30| c3 78 88 60 0e 08 57 ab | 85 0e 08 62 aa 9d 8a 60 |.x.`..W.|...b...`|
|00000c40| 1e 08 cd 79 88 0e 14 ad | 87 d5 0e 14 0e 08 cc 23 |...y....|.......#|
|00000c50| 2a ab 87 d6 d7 21 88 d8 | 20 88 60 2b 87 22 20 5b |*....!..| .`+." [|
|00000c60| 61 74 2d 73 74 61 72 74 | 20 6c 69 73 70 2d 64 65 |at-start| lisp-de|
|00000c70| 66 75 6e 2d 62 65 67 69 | 6e 20 6c 69 73 70 2d 66 |fun-begi|n lisp-f|
|00000c80| 69 6e 64 2d 6e 65 78 74 | 2d 73 74 61 72 74 20 6e |ind-next|-start n|
|00000c90| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |il (byte|-code ".|
|00000ca0| 20 88 60 87 22 20 5b 66 | 6f 72 77 61 72 64 2d 73 | .`." [f|orward-s|
|00000cb0| 65 78 70 5d 20 31 29 20 | 28 28 65 72 72 6f 72 20 |exp] 1) |((error |
|00000cc0| 28 70 6f 69 6e 74 2d 6d | 61 78 29 29 29 20 66 69 |(point-m|ax))) fi|
|00000cd0| 6e 61 6c 20 62 6f 75 6e | 64 61 72 79 20 70 6f 69 |nal boun|dary poi|
|00000ce0| 6e 74 20 22 5e 5c 22 22 | 20 72 65 2d 73 65 61 72 |nt "^\""| re-sear|
|00000cf0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5e 28 5c 5c |ch-forwa|rd "^(\\|
|00000d00| 7c 5e 3b 3b 3b 22 20 74 | 20 30 20 73 74 72 69 6e ||^;;;" t| 0 strin|
|00000d10| 67 2d 62 6f 75 6e 64 61 | 72 79 20 28 62 79 74 65 |g-bounda|ry (byte|
|00000d20| 2d 63 6f 64 65 20 22 c0 | 20 88 c1 87 22 20 5b 66 |-code ".| ..." [f|
|00000d30| 6f 72 77 61 72 64 2d 73 | 65 78 70 20 74 5d 20 31 |orward-s|exp t] 1|
|00000d40| 29 20 28 28 65 72 72 6f | 72 20 28 67 6f 74 6f 2d |) ((erro|r (goto-|
|00000d50| 63 68 61 72 20 73 74 72 | 69 6e 67 2d 62 6f 75 6e |char str|ing-boun|
|00000d60| 64 61 72 79 29 20 6e 69 | 6c 29 29 20 72 65 2d 73 |dary) ni|l)) re-s|
|00000d70| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00000d80| 5e 5b 5e 3b 20 09 5c 6e | 5d 5c 5c 7c 5e 5b 5e 3b |^[^; .\n|]\\|^[^;|
|00000d90| 5c 6e 5d 5b 20 09 5d 2a | 5b 5e 20 09 5c 6e 5d 22 |\n][ .]*|[^ .\n]"|
|00000da0| 20 22 20 09 22 20 63 6f | 6d 6d 65 6e 74 2d 73 74 | " ." co|mment-st|
|00000db0| 61 72 74 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |art sear|ch-forwa|
|00000dc0| 72 64 20 6e 65 78 74 2d | 6c 69 6e 65 20 31 20 69 |rd next-|line 1 i|
|00000dd0| 6e 64 65 6e 74 2d 6c 69 | 6e 65 2d 69 6c 69 73 70 |ndent-li|ne-ilisp|
|00000de0| 5d 20 35 20 28 23 24 20 | 2e 20 32 37 35 36 29 5d |] 5 (#$ |. 2756)]|
|00000df0| 29 0a 23 40 33 35 20 52 | 65 74 75 72 6e 20 54 20 |).#@35 R|eturn T |
|00000e00| 69 66 20 79 6f 75 20 61 | 72 65 20 69 6e 20 61 20 |if you a|re in a |
|00000e10| 63 6f 6d 6d 65 6e 74 2e | 1f 0a 28 64 65 66 61 6c |comment.|..(defal|
|00000e20| 69 61 73 20 27 6c 69 73 | 70 2d 69 6e 2d 63 6f 6d |ias 'lis|p-in-com|
|00000e30| 6d 65 6e 74 20 23 5b 28 | 74 65 73 74 29 20 22 c0 |ment #[(|test) ".|
|00000e40| 79 88 c1 5c 6e 21 ad 88 | c0 95 c3 7f 88 60 55 3f |y..\n!..|.....`U?|
|00000e50| 87 22 20 5b 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |." [0 lo|oking-at|
|00000e60| 20 74 65 73 74 20 6e 69 | 6c 5d 20 32 20 28 23 24 | test ni|l] 2 (#$|
|00000e70| 20 2e 20 33 35 37 35 29 | 5d 29 0a 23 40 31 37 34 | . 3575)|]).#@174|
|00000e80| 20 52 65 74 75 72 6e 20 | 74 68 65 20 73 74 72 69 | Return |the stri|
|00000e90| 6e 67 20 72 65 67 69 6f | 6e 20 74 68 61 74 20 69 |ng regio|n that i|
|00000ea0| 6d 6d 65 64 69 61 74 65 | 6c 79 20 66 6f 6c 6c 6f |mmediate|ly follo|
|00000eb0| 77 73 2f 70 72 65 63 65 | 64 65 73 20 70 6f 69 6e |ws/prece|des poin|
|00000ec0| 74 20 6f 72 0a 74 68 61 | 74 20 63 6f 6e 74 61 69 |t or.tha|t contai|
|00000ed0| 6e 73 20 70 6f 69 6e 74 | 20 69 6e 20 6f 70 74 69 |ns point| in opti|
|00000ee0| 6f 6e 61 6c 20 72 65 67 | 69 6f 6e 20 42 45 47 49 |onal reg|ion BEGI|
|00000ef0| 4e 20 74 6f 20 45 4e 44 | 2e 20 20 49 66 20 70 6f |N to END|.  If po|
|00000f00| 69 6e 74 20 69 73 20 69 | 6e 0a 72 65 67 69 6f 6e |int is i|n.region|
|00000f10| 2c 20 54 20 77 69 6c 6c | 20 62 65 20 72 65 74 75 |, T will| be retu|
|00000f20| 72 6e 65 64 20 61 73 20 | 77 65 6c 6c 2e 1f 0a 28 |rned as |well...(|
|00000f30| 64 65 66 61 6c 69 61 73 | 20 27 6c 69 73 70 2d 69 |defalias| 'lisp-i|
|00000f40| 6e 2d 73 74 72 69 6e 67 | 20 23 5b 28 26 6f 70 74 |n-string| #[(&opt|
|00000f50| 69 6f 6e 61 6c 20 62 65 | 67 69 6e 20 65 6e 64 29 |ional be|gin end)|
|00000f60| 20 22 8a 08 ac 88 8a c1 | 20 12 c3 20 10 29 c4 c5 | "......| .. .)..|
|00000f70| 77 88 60 1e 06 c5 1e 07 | 08 62 88 60 5c 6e 57 ab |w.`.....|.b.`\nW.|
|00000f80| d8 0e 07 ac d4 c8 5c 6e | 77 88 60 89 10 5c 6e 57 |......\n|w.`..\nW|
|00000f90| ab 6c 6f ac 8c 08 53 66 | c9 55 ab 85 c5 75 88 aa |.lo...Sf|.U...u..|
|00000fa0| 5d c5 ca cb 8f ab ac c4 | c5 77 88 08 0e 06 55 ac |].......|.w....U.|
|00000fb0| 86 0e 06 60 55 ab 88 08 | 60 c5 45 16 07 aa 3f 08 |...`U...|`.E...?.|
|00000fc0| 0e 06 57 ab 39 0e 06 60 | 57 ab 33 08 60 cc 45 16 |..W.9..`|W.3.`.E.|
|00000fd0| 07 aa 2b 08 5c 6e cc 45 | 16 07 aa 23 0e 07 2b 87 |..+.\n.E|...#..+.|
|00000fe0| 22 20 5b 62 65 67 69 6e | 20 6c 69 73 70 2d 65 6e |" [begin| lisp-en|
|00000ff0| 64 2d 64 65 66 75 6e 2d | 74 65 78 74 20 65 6e 64 |d-defun-|text end|
|00001000| 20 6c 69 73 70 2d 64 65 | 66 75 6e 2d 62 65 67 69 | lisp-de|fun-begi|
|00001010| 6e 20 22 20 09 22 20 6e | 69 6c 20 70 6f 69 6e 74 |n " ." n|il point|
|00001020| 20 64 6f 6e 65 20 22 5e | 5c 22 22 20 3f 5c 3f 20 | done "^|\"" ?\? |
|00001030| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 20 88 60 |(byte-co|de ". .`|
|00001040| 09 58 87 22 20 5b 66 6f | 72 77 61 72 64 2d 73 65 |.X." [fo|rward-se|
|00001050| 78 70 20 65 6e 64 5d 20 | 32 29 20 28 28 65 72 72 |xp end] |2) ((err|
|00001060| 6f 72 29 29 20 74 5d 20 | 34 20 28 23 24 20 2e 20 |or)) t] |4 (#$ . |
|00001070| 33 37 31 33 29 5d 29 0a |                         |3713)]).|        |
+--------+-------------------------+-------------------------+--------+--------+